home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 02 (1989-02)(MicroSPARC)(Side A)[a].zip
/
Nibble Volume 10, No. 02 (1989-02)(MicroSPARC)(Side A)[a].po
/
CALENDAR.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
655b
|
2 lines
1 PRINT CHR$(4)"PR#3":N$ = "303232332323JFMAMJJASONDSMTWTFS": INPUT "Y=";Y:C = Y/100:Z = C -.01:A = ( INT(36525 *Z - INT(Z) + INT(Z/4) +1))/7:B% = 8 *(A - INT(A) +1): FOR K = 1 TO 2: HOME : PRINT Y: FOR I = 1 TO 6:H = 25 *(I = 2 OR I = 5) +50 *(I = 3 OR I = 6): POKE 36,12 +H:F = I +6 *(K = 2):U = 9 *(I >3): VTAB 3 +U
2 PRINT MID$ (N$,12 +F,1): FOR J = 1 TO 7: VTAB 5 +U: POKE 36,3 *J +H +1: PRINT MID$ (N$,24 +J,1): NEXT : FOR D = 1 TO 28 + VAL( MID$ (N$,F,1)) +(F = 2) *((Y/4 = INT(Y/4)) -(C = INT(C)) +(C/4 = INT(C/4))): VTAB 6 +U: POKE 36,3 *(B% -7) +H +(D <10): PRINT D:B% = B% +1 -7 *(B% = 14):U = U +(B% = 8): NEXT : NEXT : GET A$: NEXT